home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / GSXSAM.ZIP;1 / INCLUDE.PRG < prev    next >
Encoding:
Text File  |  1993-08-06  |  1.4 KB  |  49 lines
  1. ***************************************************************************
  2. *
  3. * Procedure file: INCLUDE.PRG
  4. *         System: GenScrnX
  5. *        Version: 1.1
  6. *         Author: Ken R. Levy
  7. *        Company: Jet Propulsion Laboratory
  8. *      Copyright: None (Public Domain)
  9. *
  10. ***************************************************************************
  11. *
  12. * INCLUDE - Setup snippet #INCLUDE driver.
  13. *
  14. * Description:
  15. * This program is used as an optional driver for use with GENSCRNX.PRG.
  16. *
  17. * Features:
  18. * Acts as a #INCLUDE directive for all screens.
  19. *
  20. * Notes:
  21. * In this program, for clarity/readability reasons, variable names
  22. * are used that are longer than 10 characters.  Note, however, that only
  23. * the first 10 characters are significant.
  24. *
  25. * Important:
  26. * Function calls made from this program may be contained in GENSCRNX.PRG.
  27. * Variable names not declared PRIVATE in this program defined PRIVATE in
  28. * GENSCRNX.PRG.
  29. *
  30. PRIVATE m.codedata
  31.  
  32. * Ignore for header record or driver disable mode.
  33. IF OBJTYPE=1.OR..NOT.drvenable(PROGRAM())
  34.   GOTO BOTTOM
  35.   RETURN .F.
  36. ENDIF
  37.  
  38. * Create line of code be #INCLUDEd.
  39. m.codedata=""
  40.  
  41. * Add directives and/or code to beginning of Setup snippet.
  42. REPLACE SETUPCODE WITH m.codedata+''+m.cr_lf+SETUPCODE
  43.  
  44. * Go to bottom of .SCX database to have GENSCRNX skip calling this driver
  45. * for every non-header record.
  46. GOTO BOTTOM
  47.  
  48. RETURN .T.
  49.